home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / tpex.arj / C9REVEX4.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-05  |  890b  |  33 lines
  1. PROGRAM C9RevEx4;
  2.  
  3. USES Crt;
  4.  
  5. CONST    Spc = ' ';
  6.  
  7. VAR      HoursWorked:   REAL;
  8.          Rate:          REAL;
  9.          TaxRate:       REAL;
  10.          Taxes:         REAL;
  11.          NetPay:        REAL;
  12.          GrossPay:      REAL;
  13.  
  14. BEGIN
  15. CLRSCR;
  16.    WRITE( 'How many hours did you work? ');
  17.    READLN( HoursWorked );
  18.    WRITE( 'What is your hourly pay rate? ');
  19.    READLN( Rate );
  20.    WRITE( 'What is your taxrate (Use this format:0.00)? ');
  21.    READLN( TaxRate );
  22.    GrossPay := ( HoursWorked * Rate );
  23.    Taxes := ( HoursWorked * Rate * TaxRate );
  24.    NetPay := ( HoursWorked * Rate - Taxes );
  25.    WRITELN;
  26.    WRITELN( Spc:10, 'Your Gross Pay is: ', GrossPay:8:2 );
  27.    WRITELN( Spc:10, 'Your Taxes are:  ', Spc:4, Taxes:5:2 );
  28.    WRITELN( Spc:10, 'Your Net Pay is: ', Spc:2, NetPay:8:2 );
  29.    WRITELN;
  30.    WRITELN( ' Press ENTER to continue...');
  31.    READLN;
  32. END.
  33.